home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 May / macformat-024.iso / Shareware City / HyperCard / hyper-info-20-hc / HyperInfo Stacks / List (Collection) / background_3586.xml < prev    next >
Encoding:
Extensible Markup Language  |  1994-12-30  |  8.3 KB  |  115 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>3586</id>
  5.     <filler1>0</filler1>
  6.     <cantDelete> <true /> </cantDelete>
  7.     <showPict> <true /> </showPict>
  8.     <dontSearch> <false /> </dontSearch>
  9.     <link rel="stylesheet" type="text/css" href="stylesheet_3262.css" />
  10.     <part>
  11.         <id>1</id>
  12.         <type>button</type>
  13.         <visible> <true /> </visible>
  14.         <reserved5> 0 </reserved5>
  15.         <reserved4> 0 </reserved4>
  16.         <reserved3> 0 </reserved3>
  17.         <reserved2> 0 </reserved2>
  18.         <reserved1> 0 </reserved1>
  19.         <enabled> <true /> </enabled>
  20.         <rect>
  21.             <left>0</left>
  22.             <top>496</top>
  23.             <right>512</right>
  24.             <bottom>512</bottom>
  25.         </rect>
  26.         <style>popup</style>
  27.         <showName> <true /> </showName>
  28.         <highlight> <false /> </highlight>
  29.         <autoHighlight> <true /> </autoHighlight>
  30.         <sharedHighlight> <true /> </sharedHighlight>
  31.         <family>0</family>
  32.         <titleWidth>120</titleWidth>
  33.         <selectedLines>
  34.             <integer>6</integer>
  35.         </selectedLines>
  36.         <textAlign>left</textAlign>
  37.         <font>Courier</font>
  38.         <textSize>10</textSize>
  39.         <textStyle>bold</textStyle>
  40.         <name>* Action</name>
  41.         <script>on mouseUp
  42. global globalChunk,globalFld,globalText
  43. lock messages
  44. lock screen
  45. set the cursor to busy
  46. put the selectedText of the target into theAction
  47. if      ("$*$" is in "$" & theAction & "$") then
  48. answer "This function is achieved by a key combination."
  49. else if (theAction is "Create New Directory") then
  50. go bg "3"
  51. send ("doMenu " & quote & "New Card" & quote & "," & quote & "Edit" & quote) to HyperCard
  52. else if (theAction is "Create New List") then
  53. go bg "2"
  54. send ("doMenu " & quote & "New Card" & quote & "," & quote & "Edit" & quote) to HyperCard
  55. else if (theAction is "Create New Mailbox") then
  56. put createMailbox() into null
  57. else if (theAction is "Create New Message") then
  58. put createMessage() into null
  59. else if (theAction is "Create New Object") then
  60. go bg "2"
  61. send ("doMenu " & quote & "New Card" & quote & "," & quote & "Edit" & quote) to HyperCard
  62. else if (theAction is "Dial Telephone Number") then
  63. put dialTelephone() into null
  64. else if (theAction is "File into Mailbox") then
  65. put fileMailbox() into null
  66. else if (theAction is "Flip Ascending/Descending") then
  67. put flipThem(bg fld "Flip") into null
  68. else if (theAction is "Flip Envelope/Content") then
  69. put flipThem(bg fld "Flip") into null
  70. else if (theAction is "Flip Single/Double") then
  71. put flipThem(bg fld "Flip") into null
  72. else if (theAction is "Format Mail") then
  73. put formatMail() into null
  74. else if (theAction is "Go Index") then
  75. send ("closeCard") to this cd
  76. go cd "(Index)"
  77. send ("openCard")  to this cd
  78. else if (theAction is "Index Filter In") then
  79. put indexFilter("in")  into null
  80. else if (theAction is "Index Filter Out") then
  81. put indexFilter("out") into null
  82. else if (theAction is "Install Handler") then
  83. put installHandler(bg fld "Title") into null
  84. else if (theAction is "Make List") then
  85. put makeList() into null
  86. else if (theAction is "Make Mail") then
  87. put makeMail() into null
  88. else if (theAction is "Make Profile") then
  89. put makeProfile() into null
  90. else if (theAction is "Make Read Only:Directory (Family)") then
  91. put makeDirectory("Family") into null
  92. else if (theAction is "Make Read Only:Directory (Member)") then
  93. put makeDirectory("Member") into null
  94. else if (theAction is "Make Read Only:Envelope") then
  95. put makeEnvelope() into null
  96. else if (theAction is "Message-Passing Hierarchy Hide") then
  97. put messageHierarchy("hide") into null
  98. else if (theAction is "Message-Passing Hierarchy Show") then
  99. put messageHierarchy("show") into null
  100. else if (theAction is "Remove Space") then
  101. put removeSpace() into null
  102. else if (theAction is "Remove Space (*All*)") then
  103. push cd
  104. repeat with i = (the number of this cd + 1) to the number of cds
  105. go cd i
  106. put removeSpace() into null
  107. end repeat
  108. pop cd
  109. else if (theAction is "Show Credit") then
  110. put showCredit() into null
  111. else if (theAction is "Sort Cards") then
  112. sort cds of this stack ascending international by the short name of this cd
  113. put "" into bg fld "Text"
  114. else if (theAction is "Today's Date") then
  115. put todaysDate() & " | " into bg fld "Title"
  116. put setupCard() into null
  117. else if (theAction is "Update Index") then
  118. put "" into bg fld "Text"
  119. send ("openCard") to this cd
  120. else if (theAction is "Update Stack") then
  121. put updateStack() into null
  122. else if (word 1 of theAction is "Text") then
  123. delete word 1 of theAction
  124. select globalChunk
  125. if ((globalChunk is "") or (word 2 of globalChunk > word 4 of globalChunk)) then
  126. answer "Selected text is empty."
  127. else
  128. if      (theAction is "> Add") then
  129. put textShift("right",">",globalText)  into the selectedChunk
  130. else if (theAction is "> Remove") then
  131. put textShift("left",">",globalText)   into the selectedChunk
  132. else if (theAction is "Do It") then
  133. send (globalText) to HyperCard
  134. else if (theAction is "Shift Left") then
  135. put textShift("left","  ",globalText)  into the selectedChunk
  136. else if (theAction is "Shift Right") then
  137. put textShift("right","  ",globalText) into the selectedChunk
  138. else if (theAction is "Sort Ascending") then
  139. put textSort("Ascending",globalText)   into the selectedChunk
  140. set the scroll of globalFld to 0
  141. else if (theAction is "Sort Descending") then
  142. put textSort("Descending",globalText)  into the selectedChunk
  143. set the scroll of globalFld to 0
  144. else if (theAction is "ToDo Done") then
  145. put textToDoDone(globalFld,globalText) into null
  146. end if
  147. end if
  148. end if
  149. unlock messages
  150. unlock screen
  151. beep 1
  152. end mouseUp</script>
  153.     </part>
  154.     <part>
  155.         <id>2</id>
  156.         <type>field</type>
  157.         <visible> <true /> </visible>
  158.         <dontWrap> <false /> </dontWrap>
  159.         <dontSearch> <false /> </dontSearch>
  160.         <sharedText> <false /> </sharedText>
  161.         <fixedLineHeight> <false /> </fixedLineHeight>
  162.         <autoTab> <false /> </autoTab>
  163.         <lockText> <false /> </lockText>
  164.         <rect>
  165.             <left>0</left>
  166.             <top>16</top>
  167.             <right>512</right>
  168.             <bottom>496</bottom>
  169.         </rect>
  170.         <style>scrolling</style>
  171.         <autoSelect> <false /> </autoSelect>
  172.         <showLines> <false /> </showLines>
  173.         <wideMargins> <false /> </wideMargins>
  174.         <multipleLines> <false /> </multipleLines>
  175.         <reservedFamily> 0 </reservedFamily>
  176.         <titleWidth>0</titleWidth>
  177.         <icon>0</icon>
  178.         <textAlign>left</textAlign>
  179.         <font>Courier</font>
  180.         <textSize>10</textSize>
  181.         <textStyle>plain</textStyle>
  182.         <textHeight>13</textHeight>
  183.         <name>Text</name>
  184.         <script></script>
  185.     </part>
  186.     <part>
  187.         <id>3</id>
  188.         <type>field</type>
  189.         <visible> <true /> </visible>
  190.         <dontWrap> <false /> </dontWrap>
  191.         <dontSearch> <false /> </dontSearch>
  192.         <sharedText> <false /> </sharedText>
  193.         <fixedLineHeight> <false /> </fixedLineHeight>
  194.         <autoTab> <false /> </autoTab>
  195.         <lockText> <false /> </lockText>
  196.         <rect>
  197.             <left>0</left>
  198.             <top>0</top>
  199.             <right>512</right>
  200.             <bottom>16</bottom>
  201.         </rect>
  202.         <style>rectangle</style>
  203.         <autoSelect> <false /> </autoSelect>
  204.         <showLines> <false /> </showLines>
  205.         <wideMargins> <false /> </wideMargins>
  206.         <multipleLines> <false /> </multipleLines>
  207.         <reservedFamily> 0 </reservedFamily>
  208.         <titleWidth>0</titleWidth>
  209.         <icon>0</icon>
  210.         <textAlign>left</textAlign>
  211.         <font>Courier</font>
  212.         <textSize>10</textSize>
  213.         <textStyle>bold</textStyle>
  214.         <textHeight>13</textHeight>
  215.         <name>Title</name>
  216.         <script>on closeField
  217. put setupCard() into null
  218. pass closeField
  219. end closeField
  220.  
  221. on commandKeyDown theKey
  222. if (theKey is "V") then
  223. send ("doMenu " & quote & "Paste Text" & quote & "," & quote & "Edit" & quote) to HyperCard
  224. put setupCard() into null
  225. end if
  226. pass commandKeyDown
  227. end commandKeyDown
  228.  
  229. on exitField
  230. put setupCard() into null
  231. pass exitField
  232. end exitField</script>
  233.     </part>
  234.     <content>
  235.         <layer>background</layer>
  236.         <id>1</id>
  237.         <text>Go Index
  238. Make List
  239. Remove Space
  240. Text Do It
  241. Text Shift Left
  242. Text Shift Right
  243. Text Sort Ascending
  244. Text Sort Descending
  245. Text ToDo Done</text>
  246.     </content>
  247.     <name>2</name>
  248.     <script>on mouseWithin
  249. global globalChunk,globalFld,globalText
  250. put the selectedChunk into globalChunk
  251. put the selectedField into globalFld
  252. put the selectedText  into globalText
  253. if ((there is a bg fld "Type") and (there is a bg fld "Value")) then
  254. put "bg fld " & quote & "Type" & quote & ",bg fld " & quote & "Value" & quote into theFlds
  255. put the scroll of last item of theFlds into theScroll
  256. if (theScroll ‚↠the scroll of item 1 of theFlds) then
  257. repeat with i = 1 to (number of items in theFlds - 1)
  258. set the scroll of (item i of theFlds) to theScroll
  259. end repeat
  260. end if
  261. end if
  262. pass mouseWithin
  263. end mouseWithin</script>
  264. </background>
  265.